home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / tvkun / makecfg.bas next >
BASIC Source File  |  1994-11-16  |  435b  |  20 lines
  1. 10 '
  2. 20 '        てれびくん    メモリ計測プログラム
  3. 30 '
  4. 40 '
  5. 50 SCREEN 0:CLS
  6. 60 LOCATE 25,10:PRINT "メモリの大きさを計っています。"
  7. 70 ON ERROR GOTO *E1
  8. 80 A=1
  9. 90 DIM A%(320*240*A)
  10. 100 ERASE A%
  11. 110 LOCATE 29,12:PRINT "３万色ＴＩＦＦ　×";AKCNV$(STR$(A))
  12. 120 A=A+1:GOTO 90
  13. 130 *E1:RESUME 140
  14. 140 ON ERROR GOTO 180
  15. 142 OPEN "TVKUN.CFG" FOR OUTPUT AS #1
  16. 150 PRINT #1,A-1
  17. 160 CLOSE
  18. 170 END
  19. 180 KILL "TVKUN.CFG":RESUME 
  20.